home *** CD-ROM | disk | FTP | other *** search
/ SuperModels in the Rainforest / SuperModels in the Rainforest.iso / rain.dxr / 00001_Main Movie Script.ls next >
Encoding:
Text File  |  1995-10-13  |  3.0 KB  |  73 lines
  1. on startMovie
  2.   global spriteloo, purple, orange, yellow
  3.   set purple to 0
  4.   set orange to 0
  5.   set yellow to 0
  6.   preLoadCast(167)
  7.   preLoadCast(158)
  8.   preLoadCast(231)
  9.   preLoadCast(563)
  10.   preLoadCast(564)
  11.   preLoadCast(565)
  12.   preLoadCast(566)
  13.   preLoadCast(561, 570)
  14.   set spriteloo to 3
  15.   initGlobals()
  16.   InitConditions()
  17.   if the colorDepth >= 24 then
  18.     go("24bitter")
  19.   else
  20.     nothing()
  21.   end if
  22. end
  23.  
  24. on initGlobals
  25.   global giVidSprite, giVid2Sprite, giVid3Sprite, gbDebug, giBackgroundSprite, giCurrentGirl, giIconSprite, giMaxGirls, giFirstGirlIcon, glGirlNames, giPosterSprite, grFullScreen, grVidRect, grCurrentRect, giNumMapAreas, giMapRollOverSprite, gbHilightUp, gsMovieDir, gsCleanUpHandler, gsLastPlace, giTempVidCast, giTempVid2Cast, giTempVid3Cast, glShotList, gbVideoUp, giShotIndex, grOnScreenRect, grOffScreenRect, giShotListIndex, giShotMov1, giShotMov2, giShotMov3, giInPlay, gbShotFlag, septracker
  26.   set giVidSprite to 3
  27.   set giVid2Sprite to 4
  28.   set giVid3Sprite to 5
  29.   set gbDebug to 0
  30.   set giBackgroundSprite to 1
  31.   set giCurrentGirl to 1
  32.   set giIconSprite to 20
  33.   set giMaxGirls to 8
  34.   set giFirstGirlIcon to the number of cast "ModelIcon1"
  35.   set glGirlNames to ["brend", "darja", "frede", "leila", "nicol", "sabri", "tasha", "tyra"]
  36.   set giPosterSprite to 32
  37.   set grFullScreen to rect(0, 0, 640, 480)
  38.   set grVidRect to rect(22, 98, 342, 338)
  39.   set grCurrentRec to rect(22, 98, 342, 338)
  40.   set giNumMapAreas to 4
  41.   set giMapRollOverSprite to 32
  42.   set gbHilightUp to 0
  43.   if the machineType = 256 then
  44.     set septracker to "\"
  45.   else
  46.     set septracker to ":"
  47.   end if
  48.   set gsMovieDir to the moviePath & "Movies" & septracker
  49.   set gsCleanUpHandler to EMPTY
  50.   set gsLastPlace to "MainScreen"
  51.   set giTempVidCast to the number of cast "tempMovie"
  52.   set giTempVid2Cast to the number of cast "tempMovie2"
  53.   set giTempVid3Cast to the number of cast "tempMovie3"
  54.   set glShotList to ["SuperMod:Movies:leila1.mov", 773, "SuperMod:Movies:leila1.mov", 1033, "SuperMod:Movies:leila1.mov", 1535, "SuperMod:Movies:leila1.mov", 1918, "SuperMod:Movies:leila1.mov", 2418, "SuperMod:Movies:leila1.mov", 2873, "SuperMod:Movies:leila1.mov", 3223, "SuperMod:Movies:leila1.mov", 3588, "SuperMod:Movies:leila1.mov", 4168, "SuperMod:Movies:leila1.mov", 4540, "SuperMod:Movies:brend1.mov", 1020, "SuperMod:Movies:brend1.mov", 1398, "SuperMod:Movies:brend1.mov", 1750, "SuperMod:Movies:brend2b.mov", 569, "SuperMod:Movies:brend2b.mov", 1030, "SuperMod:Movies:brend2a.mov", 217, "SuperMod:Movies:brend2a.mov", 431, "SuperMod:Movies:brend2a.mov", 585]
  55.   set gbVideoUp to 0
  56.   set giShotIndex to 1
  57.   set grOnScreenRect to rect(166, 96, 486, 336)
  58.   set giShotListIndex to 1
  59.   set grOffScreenRect to rect(-500, -500, -505, -505)
  60.   set giShotMov1 to the number of cast "ShotMov1"
  61.   set giShotMov2 to the number of cast "ShotMov2"
  62.   set giShotMov3 to the number of cast "ShotMov3"
  63.   set giInPlay to 0
  64.   set gbShotFlag to 0
  65. end
  66.  
  67. on InitConditions
  68.   put "Loading" into field "results"
  69.   repeat with i = 1 to 48
  70.     set the visible of sprite i to 1
  71.   end repeat
  72. end
  73.